home *** CD-ROM | disk | FTP | other *** search
- ;#
- ;# File requester interface for BinEps
- ;#
- ;# $VER: BinEpsWB 39.0 (23.7.94) © 1994 By Alessandro Sala
- ;#
-
- ;
- ;# Init messages with default language (english)
- ;
- set msg_src "Select source EPS file"
- set msg_nosrc "You must choose an EPS file!"
- set msg_dest "Select destination file"
- set msg_prevask "Do you want to add a preview image ?"
- set msg_noprev "Don't add"
- set msg_prev "Choose an image "
- set msg_done "Conversion complete!"
-
- set msg_canc_gad "Cancel"
-
- set msg_osver_err """You need the 'requestchoice' and*N'requestfile' commands (AmigaOs 3.0*N or later) to use the WB interface*Nof BinEps."
-
- ;
- ;# Select user language, if known
- ;
- ;
- ;## To add a new language, copy the following block and fill in the required
- ;## information
- ;
- if "$Language" eq "<your language>"
- set msg_src " "
- set msg_nosrc " "
- set msg_dest " "
- set msg_prevask " "
- set msg_noprev " "
- set msg_prev " "
- set msg_done " "
-
- set msg_canc_gad " "
-
- set msg_osver_err """ "
- endif
- ;
- ;## Italiano
- ;
- if "$Language" eq "italiano"
- set msg_src "Scegli il file EPS sorgente"
- set msg_nosrc "Devi scegliere un file EPS!"
- set msg_dest "Scegli il file destinazione"
- set msg_prevask "Vuoi aggiungere una immagine di preview ?"
- set msg_noprev "Non aggiungere"
- set msg_prev "Scegli un'immagine "
- set msg_done "Conversione completa!"
-
- set msg_canc_gad "Cancel"
-
- set msg_osver_err """Per usare l'interfaccia WB di BinEps*Nsono necessari i comandi 'requestchoice'*Ne 'requestfile' (AmigaOs 3.0 o successivo)."
- endif
-
- ;
- ;# Start of program
- ;
- failat 10
-
- ;
- ;# Check if needed commands exist
- ;
- if "`which requestchoice`" eq ""
- echo ${msg_osver_err}
- quit
- endif
-
- if "`which requestfile`" eq ""
- requestchoice >nil: "BinEps" ${msg_osver_err} "Ok"
- quit
- endif
-
-
- ;
- ;# Request source file
- ;
- unset source
- set source `requestfile title "${msg_src}" negative ${msg_canc_gad} pattern #?.eps#f noicons`
- if not exists "$source"
- requestchoice >nil: "BinEps" "${msg_nosrc}" "Ok"
- quit
- endif
-
- ;
- ;# Extract source file's path
- ;
- set drw " "
- set drw `list "$source" lformat "%p"`
-
- ;
- ;# Request destination file
- ;
- unset dest
- set dest `requestfile title "${msg_dest}" negative ${msg_canc_gad} drawer "$drw" noicons savemode`
- if "$dest" eq "*$dest"
- set dest " "
- else
- set dest """$dest"
- endif
-
- ;
- ;# Ask if the user wants to add a preview bitmap
- ;
- set prevt `requestchoice "BinEps" "${msg_prevask}" "TIFF|Windows Metafile|${msg_noprev}"`
- if $prevt eq 0
- set prevt " "
- else
- if $prevt eq 1
- set prevt "TIFF"
- else
- set prevt "WMF"
- endif
- endif
-
- ;
- ;# Request the preview file if needed
- ;
- unset prevf
- if not "$prevt" eq " "
- set prevf `requestfile title "${msg_prev} ($prevt)" drawer "$drw" noicons`
- endif
-
- if "$prevf" eq "*$prevf"
- set prevf " "
- set prevt " "
- else
- set prevf """$prevf"
- endif
-
- ;
- ;# Run BinEps
- ;
- BinEps "$source" $dest $prevt $prevf
-
- requestchoice >nil: "BinEps" "${msg_done}" "Ok"
-